My meme compares the two subjects Statistics and Data Science, I created it to highlight how one subject is more interesting than the other.
library(magick)
# getting winnie pictures
winnie_average <- image_read('winnie-average.gif') %>%
image_scale(500)
winnie_tux <- image_read('winnie-tux.jpg') %>%
image_scale(500)
# creating text for meme
stat_text <- image_blank(width = 500,
height = 500,
color = "#FFFFFF") %>%
image_annotate(text = "Statistics",
color = "#000000",
size = 80,
font = "Impact",
gravity = "center")
data_text <- image_blank(width = 500,
height = 500,
color = "#FFFFFF") %>%
image_annotate(text = "Data Science",
color = "#000000",
size = 80,
font = "Impact",
gravity = "center")
# combining image and text to create rows of meme
first_row <- c(winnie_average, stat_text) %>%
image_append()
second_row <- c(winnie_tux, data_text) %>%
image_append()
# combining rows to create meme
meme <- c(first_row, second_row) %>%
image_append(stack = TRUE)
# saving meme
image_write(meme, "my_meme.png")
My animated GIF shows the difference between seeing with/without glasses, I created it to showcase how some people with visual impairment see.